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I. INTRODUCTION 

Of majcr concern to the computer industry in recent 
years has Кєєп what κ. M. Waite [Ref. 1] describes as the 
"Software Crises." That is, the problem of reprogramming 
when the need atises to transport software from one machine 
to another must be given major consideration as a factcr in 
computer  prcgram portability. The ease which the transfer 
is accomplished is measured by two factors, portability and 
adaptability. Portability can be defined as a measure of 
the ease with which a program can be transferred fror one 
environment to another, while adaptability is a measure of 
ease with which a program can be altered to fit differing 
user applications [Poole and Waite, 1973]. Although the 
differences between the two are not always well defined in 
practice, the na jor distinction lies in the atove 
definitions. Where portability deals with environmental 
changes, such as word length, adaptability is concerned with 


changes in algorithm structure. 


A. RESEARCH GOALS 

This research was an initial study of progran 
portability. It was intended to present a broad picture o£ 
the problens of software transferability and provide sone 
insight to how those problems could be solved. The 
programming of a  preprocessor/editor was undertaken to 
provide some insight to the problens of portability while 
providing a facility to allow  machine-independent FCRTRAN 


based software. 


B. TERMS AND DEFINITIONS 
The following terms and their definitions are provided 
to give the reader a better understanding of the terminology 


used. 





As used here, bootstrapping is a process commonly 
used in compiler implementation. The process is used when a 
compiler for a source language L (or a subset of L) is 
implemented cn a particular machine and the compiler is to 
be written in the language L. Gries [Refs 2] offers the 
following explanation in the form of an exercise: 

Write a compiler in a sen r language for a small 
subset Epo of L. This subset should be small, so that it 
1S easy o luplement, but large enough to be used in the 
next step. The next ee is to rewrite the compiler for 
L[0] in itself and eck it out. Now, we try to 

o L in a series of steps 


с 
"bootstrap" our way up t as 
follows. At eac Step 1, i= 1,...,1n, exten the 


compile: for κκ κ ο ρω. 
2. Macro 

A macro gives the programmer the ability to refer to 

a specific ccde sequence by mentioning a single predefined 

name. Waite (Ref. 3] defines macros as having a form 


Similar to the following: 
MACRO NAME (P1,P2,...,Pn) 
Code Body 
END 


‚The words "MACRO" and "END" serve to delimit the 
definition, "NAME" is the macro name, and "P1" through 
"Pn" are formai parameters., The code body is a series of 
Jines which nay contain instances of the formal 
parameters. | 

Unlike . subroutine calls which occur at run time, macro 
expansion is the result of a preprocessing function. That 
is, when a macro call is recognized, actual parameters are 
substituted for formal parameters and the desired code is 
inserted at the point of the macro call. 
3. Iranslator 

McKeeman (Ref. 4] defines a translator as a 
“function «hcse domain is a source language and whose range 
is contained in a target language." Simply stated, it is a 


mapping of one language into another. 





There are many factors which contribute to the prcblens 
of program portability. These factors may range fros the 
wanufacturer's unwillingness to produce compatible machines 
to the scftware ccumunity which, as stated by Fleiss, "has 
not provided the necessary guidelines or standards for 
program design, codiag and documentation" [Ref. 5). Because 
of these factcrs, one finds it necessary to develop portable 
software. Two approaches to solving the problens of 
portability are discussed: MACRO processors and high level 


language programming. 
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II. MACRO PROCESSORS 

Various approaches to portability through the use of 
macro processors have been attempted in the rast. As early 
as 1961 an attempt to enhance portability was undertaken in 
a project known az SLANG. This project was somewhat 
siniliar to another early approach, UNCOL. Both systems 
used translators and were based upon the premise that a 
translator can be written in a single intermediate lanauage. 
Poole and Waite [Ref. 6] attribute the failure of these 
systems to their "simplistic" modeling. The variety of data 
bases and operators jn existing languages necessitates a 
more comprehensive approach to abstract machine modeling. 
As Halpern [Ref. 7) points out, "with new computer 
applications being found daily, with the conputer-using 
populaticn growing at a still accelerating pace, and with 
that population taking on an increasingly lay character, the 
notion of a universal language is indefensable tcday." 
Since the computer world has somewhat settled on a 
multiplicity of languages, the above statement seems to 
hold. Processors on the other hand, are generally tailored 
to fit one language necessitating a multitude of compilers. 
The need is for a software processor which can handle the 
Variety of ianguages which exist today and 15 somewhat 
extendable to meet the needs of future languages. To this 


end, the macro processor has been developed. 


A. THE MCBILE PROGRAMMING SYSTEM 

The Mobile Programming System is a translator system 
consisting cf two levels, SIMCMP and STAGE2. The system is 
a "powerful sacro processor designed specifically as a tool 
for constructing mächine-independent software" [Ref. E 
The uniqueness of the Mobile Programming System is that 
unlike rost approaches to portability through macro 


processcrs, it does not require an existing versicn of 
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itself. The system can be bootstrapped on most contemporary 
computing machines starting with the simplified translator 
callec SIMCME. 
1. SIBEHE | 
SIMCMP (simpie compiler) is a simple macro processor 
used to translate any source language which can be defined 
by macrcs with single character parameters. The SIMCMP 
algorithm consists o£ two distinct phases, macro definition 
and macro expansion. During the macro definition phase, all 
Macres are readrin using macro names or “templates" as the 
Start of the definjtion and an end-of-line flag to delimit 
the definition. Once the definition phase is complete, 
expansion begins. In the expansion phase, each line cf the 
source code is read. fhe source statement is matched with 
the predefined templates. If a match is found, the 
corresponding macro code body is punched out and the 
translator continues. If no template match is found for a 
line of source code, the code is treated asa statement in 
the base language. Reading a blank line fron the source 
code terminates the process. 
2. STAGEZ 
The second level of the bootstrapping process is 
STAGE2, consisting o£ a more powerful processor written in a 
language capatle of being translated by SIMCMP. The purpose 
of STAGE2 is to provide a means for implementing machine 
independent software. Software support of STAGE2 has been 
kept minimal and, as Waite [Ref. 8] pointed out, only five 
basic functions are required of the supporting machine. 
1. read one line 
2. detect end-of-file 
3. write one line 
4. write end-of-file 
5. rewind 
STAGE2 employs a scanner to. recognize macro calls 
and isolate parameter strings. Template matching is used 


for recognition of macro calls. Where SIMCMP was a very 
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Simple processor, STAGE2 is a more powerful and flexible 
processor providing the user many fuctions. The macro 
facilities of STAGE2 are similar to more powerful macro 
assemblers, and will be reviewed below for completeness. 

a. Storage | 

STAGE2 provides three levels of stcrage: 
parameter storage, associative memory, and up to nine 
input/output files. | 

Macros have storage space for nine parameters, 
with parameter storage local to the macro body. That is, 
the parameters are available only to the code body cf the 
macro in which they were declared. Because nested macro 
calls are allowed, parameter values are saved during these 
calls. At the end of the code body, however, all parameters 
associated with that macro call are lost and not 
retrievable. 

The associative memory is similar to the COMMON 
statement in FORTRAN programming. That is, the associative 
memory area is global to the entire set of macro calls and 
provides a means for transferring information between 
macros. 

“By suitable processor functions the user can 
direct output generated by STAGE2 to any file on which 
writing is allowed. The input may be switched to any file 
on which reading is allowed" [Ref 8]. Multi-pass operations 
are possitle since the input/output files can be used for 
temporary stcrage of intermediate text. 

b. Arithmetic Expression Evaluation 

Addition, subtraction, multiplication, and 
division can be performed by  STAGE2. All arithmetic 
evaluations must be of integer type. That is, the operands 
must be either integers or symbols, where each symbol has an 
associated integer value stored in associative memory. 

c. Conditional and Loop Operations 
String equality and the relative magnitude of 


two expressions can be tested. As a result, an ofticn is 
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available where the ability to skip a predetermined amount 
of code is available. The code body of the calling macro 
may be exited on this type of conditional Eranch. Looping 
within a macro call js also available. Similar in structure 
to a FORTRAN DO-Loop, the calling macros code body may be 
duplicated more than once. | | 

As pointed out ealier, the Mobile Programming System can 
be bootstrapred on a target machine without an existing 
version of itself. SIMCHP is defined in FORTRAN because of 
the high availability of FORTRAN compilers. However, if a 
FORTRAN compiler is not available, SIMCMP is easily coded in 
assembly language on most computers. STAGE2 is written in 
FLUE (First Language Under Bootstrap) and can be corpiled 
With SIMCMP. After STAGE2 has been implemented in its 
simplest form, it 1s "Bootstrapped" until the desired level 
is reached. As Poole and Waite (Ref. 1] point out, the 
resulting software is, therefore, tailored "tc the 
particular problem at hand" and its complexity is extended 


only "as the need arises." 


В. LIMP 

LIMP (Language Independent Macro Processor) [Ref. 7] is 
presently used to process text for eight different 
conpilers. LIMP embodies the concept of a macro processor 
which 1s independent of assembly language. Based upon the 
idea of string manipulation with parameter substitutuicn, it 
has the capacity to allow the programmer to alter the 
behavior of a specific compiler without redefining the 
entire language. 

Somewhat similar to the Mobile Programming System in 
operation, LIMP provides a much broader means of macro 
definition. Although still referred to as a template, the 
line which introduces the macro definition may be any 
arbitrary string of characters. A special parameter symbol 
is used to indicate the positions of parameters. Waite 


{Ref. 9] suggests "this approach frees the system frcm any 
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arbitrary forpat restrictions of a particular language - 
tenplates can be written in a form suited to the language at 
hand." Any code line which cannot be matched to a  teuplate 
is copied directly to the output source without change. 
1. Parameters | 

A maximum of nine formal parameters may be specified 
within the macro code body. They are specified by their 
relative rosition in the macro definition template using the 
integers one through nine. Unlike the usual substitution of 
actual for fcrual parameters, LIMP allows several conversion 
types by indicating the desired subscript on the relative 
address of the parameter. The conversion digits describe 
the ways in which the actual parameter string may be used in 
each substitution. When more than nine formal parameters 
are needed, a private tree may be used to stcre intermediate 
results, as described below. 

2. 5геез 

Three types of trees are available in LIMP: private 
tree, symbol tree and template tree. As mentioned earlier, 
private trees may be used to store intermediate results when 
an excess of nine patameter strings are needed. Except for 
the macrc code body, which is converted to iist structure 
when defined, all input source code is considered in string 
forn. It is, therefore, not possible to use string 
operations to make changes within the code body. If the 
user forsees the need to alter the code body of a macrc, the 
code body can ke stored in the private tree as a string. It 
is then possible to redefine this string as the code bcdy of 
any tenplate. 

The symbol tree is used to store symbols which are 
either created by parameter calls or direct declaraticn by 
the user. In conjunction with this, any symbols added to 
the tree are automatjcally given the current value of a 
built-in location counter or explicitly assigned Ly the 
user. 


The template tree contains the templates cf all 
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defined вас̧гсѕ. When an input line is matched to a 
template, actual parameter strings are created and the 
associated nacro code body is duplicated. The user пау 
reenter the definition phase by using a special command to 
define ancther tempiate and add it to the template tree. A 
blank line after the macro definition causes the system to 
return tc the expansion phase. 

The LIMP system does, to some extent, solve the prcblems 
of languages being tailored to fit target compilers. It 
allows flexibility in software which is critical to the 
proklems of transferability. И. М. Waite suggests that, 
with planned extensjons, LIMP could far surpass the rcle of 
present macrc processors and "would have the power of a 
Syntax directed compjler" [Ref. 9]. 

Both the Mobile Programming System and LIMP have enjoyed 
some degree of success. The Mobile Programming System has 
been irplemented on eight different machines with a maximum 
of two man weeks required for implementation. As Poole and 
Waite point out, "it is not even necessary to have access to 
a running version of the system on another machine; a 
listing, tape or BCD deck is sufficient" [Ref. 1]. LIMP, on 
the other hand, was not designed with the sane goals in 
mind. The degree of independence of LIMP is directly 
related to the availability of a WISP compiler on the target 
machine. WISP is currently available on the IBM 7094, 7040, 
GE 265, ENGLISH ELECTRIC KDF9, ELLIOT 803, EDSAC 2 and 
ATLAS 2 computer systems. Once implemented, LIMP is capable 
of processing text for eight different compilers. Asa 
result, text acceptable to LIMP attains some degree of 
machine independence. 

While the use of macro processors is a valid approach to 
portability, the development of standardized high-level 
language compilers opens the door to programming in a 
high-level language to attain a degree of portability. 
Software written in high-level languages have been 


reasonakly successfud in the field of transferrability. 





III. HIGH-LEVEL LANGUAGE PROGRAMMING 


The use of high-level languages is evident in many 
attempts to enhance portability. The macro processors 
nentioned previously can themselves be highly portable 
systems if written in a widely available high level 
language. If this approach is not taken, the job of 
transferring the systen deteriorates to one of reprogramming 
in assembly language. The alleviation is to code the 
applications programs by coding directly in universally 


available high-level languages. 


А. STANDARDIZATION 

The need for standardization of programming languages is 
evident. "This opinion is reflected by the existence of 
standards ccmmittees such as ANSI (American National 
Standards Institute) which have been organized for most 
popular languages" [Ref. 5]. Industry is very much 
concerned with maintaining a degree of standardization. 
"Presently, there are COBOL precompilers that enforce 
management selected language usage constraints. Information 
Management Inc., for instance, has MAGIC Standards Enforcer 
which notes use of management+prescribed COBOL verbs. Arkay 
Computer Applications! MECCA flags about 200 manacement 
selected violations" [Ref. 5]. These standard enforcement 
packages are largely oriented toward maintaining uniformity 
of the listings for the sake of readability, but they can 
flag the use of any selected reserved words. In order to 
standardize programming languages, in 1969 the UNITED STATES 
NAVY issued OPNAVINST 10462.8. This instruction explains 
the Navy's need for standardization and sets forth well 
documentated standards for the COBOL, FORTRAN, and JOVIAL 
prograuming languages. Standardization allows the coding of 
applicaticns programs within the constraints cf a 


programming language. The implementation of that program on 
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апу target machine is dependent cn compiler availability and 
a minimum consideration of machine dependent aspects, such 
as word size, I/O interfaces, character sets, and 
peripherals. The availability of standardized high-level 
language comrilers iS a problem which is rapidly decreasing. 
As early as 1966, the Navy attempted standardization by 
issuing SECNAVINST .10462.8 which demands that all new 
computer acguisitions must specify COBOL and FCRTRAN 
compilers as a mandatory requirement. The Navy realizes 
that certain high-level languages are better for different 
user requirements, and, while it limits and standardizes the 
allowed high level languages, it provides a wide base for 
running its software 

Standardization is lost when a language is extended to 
meet certain specialized needs. It seems that even the most 
powerful high level language compilers are altered to 
provide extra features deemed necessary by implementors of 
the ccnpiler. These features are added at the expense of 
the transferability ef programs coded for processing by the 
"improved" compiler. In time, however, even these extended 
languages may become standardized. ANSI FORTRAN, for 
example, 15 an extension of the original FORTRAN IV 
language. If extended languages are implemented, their 
compilers can be written to scan source code for factors 
which influence portability. "Whenever possible, comfiiers 
Should flag usage of non-standard language features that 
they izplement. ` WATFOR ... is an excellent example of 
fulfilling this function"{[ Ref. 5]. 

One successful method of extending a language is to 
write a preprocessor which converts the extended language 
into a standardized language. MORTRAN, a language developed 
at Stanford University, is an example of high-level language 
extension without significant loss of portability. Written 
in ANSI standard FORTRAN IV, the MORTRAN processor can be 
iuplezented on a wide variety of machines. The  HCRTRAN 
processor translates the HORTRAN input text directly into 
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FORIBAN statements which can be compiled by the user's 
FORTRAN campiler.  MORTRAN's features include: 

1. free field format 

2. adphanumeric Statement lables 

3. cpmments inserted anywhere in the text 

4. multiple assignments | 

Se implicit looping and block structure 


6. statements such as FOR-BY-TO, WHILE, 
UNTIL, and IF-THEN-ELSE 


7. user defined macro-instructions 


8, biocks of normal FORTRAN statements 
imserted in the text 


These extensions afford the FORTRAN user a powerful language 
which retains the qualities cf portability inherent in a 


standardized language such as FORTRAN. 


B. STRUCTURED PROGRAMMING 

Programming in a standardized, widely available 
high-level language offers more than just a multiplicity of 
compilers. The programmer has the opportunity to enhance 
the transferability of software by using the techniques of 
structured programming. Structured programming can be 
thought cf as "the goal of evolving a program so that its 
final structure can be presented or described as a hierarchy 
of tasks or blocks" [Ref. 10]. Because those areas of 
computer software whjch retain machine dependencies must be 
altered when a transfer of software is to be affected, it is 
beneficial tc the personnel performing the transfer to 
easily identify those dependencies. Structured, or mcdular 
programming, makes it "possible to study the system one 
module at a time" [Ref. 5] and therefore increases the ease 
of comprehension of the system. This type of modular 
programming can be used to segregate these areas in the 
software which may contain machine dependencies. Knowledge 
of the entire systen or unrelated modules is, therefore, not 
required to accomplish the task of making the needed 


changes. 
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FORTRAN is an excellent example of a high-level language 
which can te easily modularized. "The ability to divide 
machine/system dependent and independent attributes into 
separate entities via sub-programs greatly enhances the 
transferability of programs" [Ref. 5]. The compiler for 
INTEL's PL/M language was written in ANSI standard 
FORTRAN [Bef. 11]. Because the compiler was written using 
the concepts of structured programming, machine dependencies 
were easily isolated from the remainder of the system. Asa 
direct result of the modular design and standardized base 
language, PI/M has been easily implemented on eight 
different machines with little or no difficulty. 
Input/foutput file names are contained within two subroutines 
and can easily be accessed for change. Once implemented on 
a specific ccmputing machine, sections of the PL/M compiler 
may be accessed to increase: efficiency. This has been 
demonstrated on the IBM System/360. A forty percent 
decrease in compile time was achieved by replacing the 
FORTRAN method of shifting with an assembly language snift 
апа mask operation. This adjustment, plus the 
Loplementation of an assembly language inputyoutput package 
and the use of the FORTRAN H optimizing complier, ailcwea 
compilaticn of PL/M programs in less than half the time 
required Ly the first version. The total effort expended to 
facilitate these changes was twenty-four man hours, 

The advantages of coding in a standardized language 
similar to FORTRAN are apparent. As Hamlet (Ref. 12] points 
out, “only schemes based on ANSI FORTRAN really move easily 
among different computers." As discussed earlier, the 
Hobile Prcgramming System is written partly in ANSI FORTRAN. 
The portatility of the entire system iS somewhat dependent 
upon the ability to implement SIMCMP on the target comruter. 
до a result of the variety of portable software which has 
been writter, an ANSI FORTRAN based preprocessor/editor was 
written with the goal of achieving scme degree of 
portibility. 
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IV. PREDITOR 





PREDITOB (PReprocessor/EDITOR) was iuplemented in ANSI 
FORTRAN using the concepts of structured programming. This 
was considered to be a viable approach to ' machine 
independent software. PREDITOR is -a preprocessor/editor 
which is capable of processing a small super-set of FOETRAN, 
Called  FORTRAN*, and allows changes to existing prcgrams 
with a sinplified text editor. 
As an itplementation language, FORTRAN is deficient in 
some areas. For example, ANSI FORTRAN does not provide a 
string data type. Sore aspects of FORTRAN, such as the 
COMMON statement for representing global variables, have 
caused many man hours of work when a program change is 
necessary. FORTRAN* attempts to solve some of the 
inadecuacies of character manipulation inherent in FCRTRAN 
and make the alteration of large software packages an easier 
task. In addition, the text editor section of PREDITOR 
includes four useful editing functions. 
1. insert a line of code 

2» delete a line or sequence of code 
3. copy a predefined sequence of code 
4. sequence the source file 

The above functions are invoked using a numter of 
"control toggles," a patch file containing desired changes, 


and a user's sequenced source file. 


A. INDEPENDENT ASPECTS 

Because of the availability of standard FCRTRAN 
compilers, EREDITOR ofrers а highly portable package. 
Structured programming and machine-inderpendent character 
representation allows the data structures and internal logic 
to be transparent to the user and target machine. The 
modular design has also allowed for the isolaticn of 


input/outzut processing. This results in a flexible system 
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for user reassignment of peripheral devices, particularly in 
the program transfer stage. Word size varies widely from 
machine to machine, and thus must be considered an impcrtant 
factor in portability.  PREDITOR uses machine word size to 
its advantage. By packing applicable input data, memory 
requirements are minimized. This allows existing software 
to be preprocessed fer use on target machines with different 


word lengths while minimizing machine storage requirements. ` 


В. DEPENDENT ASPECTS 

PREDITOR contains some machine dependencies. The data 
which PREDITOR must access during execution is packed 
according tc host machine word size. If PREDITCR is 
transferred to another machine, this data must be refacked 
acccrding to the new machine word size. PREDITOR itself can 
be used to process the appropriate statements and provide a 
copy of the reformatted data. The syntax tables which are 
vital to the compiler portion of PREDITOR are also machine 
dependent and can be reconstructed for the hcst machine. 

Special characters which trigger PREDITOR functions may 
conflict with predefined uses of those characters in 
existing target machines. For example, the dollar sign is 
used as a ccmment indicator in the XDS Sigma 7. The 
reserved dollar character can easily be changed in any 


implementaticn. 


С. METHCDS CF TRANSFER 

Prior to transfer to a new environment, certain 
dependencies must be accounted for. Word size dependent 
Syntax tables and packed output data must be replaced with 
tables and data generated for the target machine. 

Inputyoutrut files presently reflect the file numbers of 
the IBM System 360. These file numbers may Бе redefined to 
meet user requirements or existing system file definitions. 
All areas which may need to be altered are clearly marked in 
the source listing of PREDITOR. 


If a conflict involving the use of special characters 
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which trigger PREDITOR functions exists, FREDITOR must be 
altered. An alternate character must be defined and 
izplemented in the systen. 


D. OPERATING PROCEDURES 

PREDITOR is a one pass systen. During the pass, the 
source program is scanned and all improperly formed 
statements are detected. A listing of the source program 
can be oktained and errors are listed by line number. Error 
messages take the forn: 


жжжжж ERROR (x) NEAR LINE 
xkkxkk Brief explanation of error 


The number x corresponds to the error number and y is the 
line number where the error occured. The line which 
immediately follows gives a brief explanation of the 
particular error message. See Appendix C for a complete 
list of error messages. 

File numbers used in PREDITOR, along with the 
corressponding device types are listed in Appendix D. These 
I/O file numbers шау be set prior to execution or during 
execution by using available control switches. 

PREDITOR begins by reading a record from the input file. 
The PREDITOR processor translates the FORTRAN+ input text 
directly to FORTRAN statements, which are then compiled by 
the user's FORTRAN compiler. $$ Control switches are 
usually set at this time by the user. If not, ccntrol 
Switches are set to default values. If the edit mode is not 
selected, the source file will be preprocessed as is. If 
editing is desired, GOFERS will merge the patch deck and the 
source file and process it normally. Figures 1 and Z show 
typical patch deck and source file composition. when the 
hines cards are read, the operation is complete. The 
resulting merged file 1S then ready to be compiled fron the 


temporary stcrage area. 
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$$ Control Switches 


(these consist of either contrcel toggles 
or control switches and are used as desired.) 


$$PATCH (Required) 


$$ Statements 


(These cards are used to delete or add ccde 
to the source file.) 


99999999 ,(nines card required.) 


Figure 1 
A Typical Preditor Patch File 


$$xx Statements (if desired) 


(These are used in conjunction with 
the $ COPY command) 


$$ SOURCE (Required) 


$ Command Statements 


(These include $ OUTPUT, $ COPY and 
$ APPEND VERSE.) 


(nines card required) 99999999 


Figure 2 
A Typical Preditor Source File 
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E. $$ STATEMENTS 

The $$ Statements are used to initialize PREDITCR and 
alter the predefined states of control toggles. $$ SOURCE 
marks the beginning of the source file. Ail statements 
following the $$ SOURCE are considered as part of the 
source file until a “nines card" (99999999 in columns 73-80) 
is detected. | 

The $$ PATCH incicates the beginning of the patch deck. 
The patch deck defines additions and deletions to the source 
file. All statements following the $$ PATCH are considered 
as part of the patch deck until a nines card (99999999 in 
columns 1-8) 15 detected. Patch deck cards are cf two 
forms: 


1. insert a card of code 
XXXXXXXX CODE BODY 


2. delete a body of code 
XXXXXXIXFY Y Y YY Y YY 


The xxxxxxxx field is in columns 1 - 8 and indicates that 
the CODE EODY (colunns 73-80) is to be inserted prior to a 
source file record of equal or greater sequence number. If 
a star (*) appears in column nine, the records to be deleted 
begin with sequence number xxxxxxxx and end with sequence 
number yyyyyyyy inclusive. 

$$xx statements are used to define a portion of text 
which is to ke copied into the executable source file. The 
dollar signs ($%) are placed in columns 1 and 2 with the xx 
field in columns 3 and 4. The xx field is any integer 
between 1 and 99 and represents all text which follows until 
another dcllar sign is found in column 1. This text may be 
copied into the new source file with the call $ COFY xx. 
This allcws the user to make changes to statements such as 
FORTRAN COMMON, which may be used frequently throughout a 
program. To facilitate the change, the user need only make 
the change in the definition stage as mentioned above. All 
$$xx statements and their associated text are physically 
placed directiy before the $$ SOURCE card. 
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Other control switches take two forms: control  tcggles 
and control parameters. Toggies take on the values 1 and 0 
(true or false), while parameters take оп appropriate 
values. 

Control switches are specified by typing a $$ in cclunmns 
1 and 2, and a switch name starting in column 3 (only the 
first character of the switch name is significant). The 
switch name is followed by an equal sign (=) and an integer 


value.  Ccntrol switches are listed in Appendix B. 


E. $ COMMAND STATEMENTS 
The $ Command Statements are used freely within the 
source file after the $$ SOURCE card. These statements are 
part of the processor portion of PREDITOR. PREDITOR 
translates $ Command Statements to standard FCRTRAN 
subroutine calls. 
1. $ OUTPUT 
The $ CUTPUT allows output of strings and integers. 
The use of the concatenation feature within the CUTPUT 
statement provides for a continuous output of strings and 
integers. A dollar Sign ($) is placed in column 1 of the 
source file, followed by at least one blank, with the 
remainder cf the statement being free format. The CUTPUT 
statement takes the foliowing forn: 
$  OUTPUT( ) 
All information to be written out is contained between the 
two parentheses. The statement must terminate with a right 
parenthesis prior to column 73. 
a. Strings 
Strings are delimited by the single quote  ('). 
Ail characters which appear between two quotes are 
considered part of the string. The use of two adjacent 
quote marks inside the string resuits in the output of a 
Single qucte. Although the maximum length of text that one 
OUTPUT statement can process is 64 characters, the output of 


a longer text can be performed using the concatenation 





feature in ccnjunction with as many OUTPUT statements as are 
needed. Concatenation may be used to suppress dumping of 
the output buffer. This allows strings or integers which 
follow to be placed jn the current buffer as shown in the 
following example. 


$ OUTPUT I/V ET IS A TEST '//) 
$ OUTPUT (//* STRING?) 


The output wculd appear as THIS IS A TEST STRING. 

b. Integers | 

Integers may be represented as variable names or 
constants. Four bases are available: binary, octal, 
decimal, cr hexadecimal. A variable field width is also 
available with the option of blanks or zeros to fill out the 
field. To output an integer variable or constant, the 
statement must be of the forn: 
(x) nannan ς y 
The value x in parentheses is optional and specifies a field 
width. If ncne is specified, a default width of 5 is used. 
If a negative value is given, the field is padded with 
blanks instead of zeros. The nnnnnn field is the. variable 
Or constant field, while the y represents the radix desired 
and is also cptional, but defaults to base 10 if none is 
Specified. All three components may be either integer 
values or variables with integer values. The negative 
concatenation option (/-/} can be used effectively іп 
conjunction with -the field width to preduce a desired 
output. A /-/ will cause all leading blanks in a field 
width to be deleted. This allows integers tc be 
left-justified when concatenated with strings cr other 
numbers as shcwn in the following example. 
$ OUTPUT (‘THE VALUE OF K IS '/-/(-10)K: 10) 
The output would appear as THE VALUE OF K IS 5 where K has 
the value 5. ۰ 
2. Ausser 

The $COPY statement causes the text associated with 

the statement to be inserted at that point in the source 
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code. The statenent must take the forn: 

$ COPY xx 
The dollar sign ($) is placed in column 1, followed by at 
least one blank, with tne remainder of the statement free 
format. The number xx is any integer between 1 and 99. 

3. $ APPEND_VERSE 
Ihe $ APPEND VERSE has the form: 

$ APPEND VERSE 
The dollar sign must again be piaced in column 1, followed 
by at least one blank, with the remainder of the stateneat 
format free. This causes the vector VERSE, which contains 
the packed output data, to be copied into the new source 
file at this point. The associated FORTRAN equivalence 
statements will be built at this time. | 
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V. SUMMARY 


Within the areas discussed, each effort made to increase 
the portability of software has offered some distinct 
advantages. Both the Mobile Programming System and LIMP are 
macro  prccessing Systems which were developed Tor 
constructing machine independent software, but attack the 
problem with different concepts in mind. While the Mobile 
Programming System was designed to be transferred with the 
software, LIMP must meet this goal by processing programs at 
those installations which support the language WISP. The 
Mobile Programming System is capable of being bootstrapped 
On most computing machines to a level which best meets the 
needs of the software to be processed. LIME, on the other 
hand, was designed to translate the software into cne of 
eight different languages. Although LIMP itself is bound to 
those systems which support WISP, the resulting software may 
be transferred to any machine which supports one of those 
eight languages. 

The use of high-level language programming has alsc made 
a Significant contribution to Software  portability. 
Standardization of programming languages and the attempt by 
many software manufacturers to produce a product which is 
easily understood and modified, has made transferability of 
software a much easier problem to solve. All methods 
discussed have experienced a degree of success. There is, 
however, another guestion which must be considered when the 
subject cf portability arises. That is, what is the 
efficiency cf the final product. Because most systems 
designed for transferability are coded with the concert of 
structued programming in mind, critical routines can be 
singied cut and recoded in assembly language to increase 
efficiency. Although there are currently no comparative 


studies of efficiency of the macro processor systems 
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mentioned, Waite [ Ref. 6] suggests that the “effort 
involved in this recoding iS miniscule compared with that 
involved in hand~coding the entire processor." The success 
of this methcdology is evident in the implementation of PL/M 
on the IEM System 360. With a minimum amount of alteration, 
efficiency was increased by approximately forty percent. 

In the final analysis, the efficiency of the systems and 
methodologies used will be determined by the degree of 
development in those areas. The mobility associated with 
macro processors and high-level languages, however, has been 
demonstrated as a viable tool for iuplementaticn of 


programming languages on a variety of computing machines. 
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AFPENDIX A: FORMAL DEFINITION OF EREDITOR 


<PROGRAM> :;:- «STATEMENT LIST> 


<STATEMENT LISTS ::= <STAIEMENT> 
| <STATEMENT LISI><STATENENT> 


<STATEMENT> 1:= <OUTPUT STATEMENT? 
<APPEND STATEMENT> 
<COPY STATEMENT> 


<OUTPUT STATEMENT> 2:= <OUTPUT HEAD> ) 
<APPEND STATEMENT> ::= <APPEND><SURBJECT> 
<COPY STATEMENT> ::= <COPY><NUEBER> 
<OUTPUT HEAD> : <OUTPUT> ( 
«OU T HEAD><STRING> 

UT HEAD><CONCAT> 

<OUTPUT HEIAD><NCONCAT> 
| <OUTPUT HZAD>SCONOUT CALL> 


<CONOUT CALL> :2= <CONOUT STATEMENT> 
| <CONDOUT CALL><RADIX> 


<CONCUT STATEMENT> ¿:= <IDENTIFIER> 
<NUMBER> 
<FIELD WIDTHS<IDENTIFIERD> 
<FIELD WIDTH><NUMBERD> 
<FIELD WIDTH> ::Ξ ( <NUMBER> ) 


<RADIX> 3 <RADIX HEAD><IDENTIFIER> 
<RADIX HEAD><NUMBER> 


<BADIX НЕАр> ::= 3 


<COPY> 2:= COPY 
<OUTEUT> ::= OUTPUT 
<APPEND> ::= APPEND 


<SUBJECT> ::= VERSE 
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APPENDIX B: PREDIIOR CONTROL TOGGLES 











Switch Name ως zc. es} ке Default 
$$APATCH-n The patch deck input file number = n 1 
$$BSEQUENCE-n Begin:sequence numbering at n 25 
$ФГЕГТА= п Sequence number increment = n 25 
$SEMARGIN=n Set the output line width ton 120 
Characters. 
$$HWDSIZE-n Host machine wordsize - n 32 
$$1NPUT-n Switch to file n for subsequent 1 
input ,(see file nuubering). 
$$MERGE - Edit mode: T or F | 0 
$$OUTPUT=n Krite subsequent output lines to 
file n 
$$PRINT Output lines to the printer: T or P 1 
$$RMARGIN=n Logical record size = n 80 
$$SEQUENCE Resequence the source file: T or F 0 
$$WORDSIZE-n Target machine wordsize = п 32 


NOTE: All input files are maximum of 80 characters, and the 
Output files cannot exceed 120 characters. 
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Error 


Numker _ 


1 


کس س س سے 


APPENDIX Cs ERROR MESSAGES 








ο... le Ah هج‎ ee a A AAA AA A A سے سے ایی‎ 


Illegal symbol pair. The symbois printed cannot 
appear in a valld statement. This error may have 
been caused by a previous error in the program. 


Parse stack overflow. Simplify the statement or 
declare a larger parse stack ‘and recompile. 


Table overflow. Error may be result Sooo j 
variables in use at one time. Either sinplif he 
OUTPUT statement or increase the varc size an 
reccmpile. 


Improperly formed statement. The statement akove 
is improperly formed. Check formal BNF for def- 
inition and usage. 


Inccrrect format for concatenation used.  Prorer 

format is: | Я 

// : Append to the current output buffer. 

ως репа to the current output kuffer and 
delete the leading blanks. 


String length exceeds allowable limits. Use . 
Shorter string length combined with concatenation. 


Variable exceeds FORTRAN limits. Variable . 
lasted below is greater than six characters in 
length. Rename the variable. 


A $$CCNTROL statement is ру formed. 
Check ail CONTROL statements to insure 
Rec kes format. 

$ SOURCE 
$$ Е 


АТСН 
$$CCNTROL TOGGLE 
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APPENDIX D: 


FILE DEFINITIONS 


INPUT OUTPUT 
NUMBER DEVICE UNIT * NUMBER DEVICE UNIT. 
D mins * с7а 
x 
1 CARDRDR 5 1 PRINTER 6 
2 TELTYPE Q x 2 TELTYPE u 
3 PAPTAPE 6 T 3 PUNCH 7 
4 MAGTAPE 7 a Q MAGTAPE 8 
5 LSKFILE 8 3 5 DSKFILE 9 
6 LSKFILE 9 т 6 DSKFILE 10 
Y AVAILABLE 10 * 7 PAPTAPE 11 
NOTE: 


Unit numbers nor be altered to fit user requirerents 
ty accessing subroutines RDTEXT and KRITEL. These 
are the only references to these unit numbers. 
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